home *** CD-ROM | disk | FTP | other *** search
/ Maclife 42 / MACLIFE42.ISO.7z / MACLIFE42.ISO / FreeWare200 / 通信関連 / NIFTY APS f1.sit / NIFTY APS f1 / Multi IDs < prev    next >
Text File  |  1998-01-09  |  1KB  |  49 lines
  1. ************************************
  2. *   NIFTY APS beta by Ko Tsuneta   *
  3. ************************************
  4. ********************
  5. *     Multi IDs    *
  6. ********************
  7. *** Multi IDs ***
  8.   reset:
  9.   g:
  10.   ask:00:このマクロ自体はセキュリティが考慮されていないのでご注意ください。
  11.   q:
  12. 00:
  13.   input:$string$:IDをいくつ登録しますか？ (2-5)
  14.   if:01:$string$==
  15.   strwhere:#num#:[¥^2-5]:$string$
  16.   if:02:#num#==0
  17. 01:
  18.   ask:00:半角の2から5までの数値を入力してください。
  19.   q:
  20. 02:
  21.   set:#idnum#:$string$
  22.   set:$id$:
  23.   set:$pw$:
  24.   set:#i#:1
  25.   while:#i#<<#idnum#
  26. 03:
  27.     input:$temid$:#i#番目のIDを入力してください。
  28.     strlen:#length#:$temid$
  29.     if:04:#length#<>8
  30.     strwhere:#num#:[A-Z][A-Z][A-Z][0-9][0-9][0-9][0-9][0-9]:$temid$
  31.     if:05:#num#==1
  32. 04:
  33.     ask:03:このIDは無効です。もう一度入力してください。
  34.     q:
  35. 05:
  36.     set:$id$:$id$$temid$-
  37.     input:$tempd$:$temid$に対応するパスワードを入力してください。
  38.     set:$pw$:$pw$$tempd$ 
  39.     add:#i#:1
  40.     wend:
  41.   input:$temid$:#i#番目のIDを入力してください。
  42.   set:$id$:$id$$temid$
  43.   input:$tempd$:$temid$に対応するパスワードを入力してください。
  44.   set:$pw$:$pw$$tempd$
  45.   m:ログインスクリプトに次の文字列を登録してください。^m
  46.   m:  ID        ：$id$^m
  47.   m:  パスワード：$pw$^m^m
  48.   q:
  49.